home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.5 Complementary Applications 2004 February / SGI IRIX 6.5 Complementary Applications 2004 February.iso / dist / cde.idb / usr / dt / share / examples / dtksh / DtWsTest1.z / DtWsTest1
Encoding:
Text File  |  2003-11-18  |  6.2 KB  |  179 lines
  1. #! /usr/dt/bin/dtksh
  2. #
  3. # DtWsTest1
  4. #
  5. # Copyright 2000, Silicon Graphics, Inc.
  6. # ALL RIGHTS RESERVED
  7. # 
  8. # UNPUBLISHED -- Rights reserved under the copyright laws of the United
  9. # States.   Use of a copyright notice is precautionary only and does not
  10. # imply publication or disclosure.
  11. #
  12. # U.S. GOVERNMENT RESTRICTED RIGHTS LEGEND:
  13. # Use, duplication or disclosure by the Government is subject to restrictions
  14. # as set forth in FAR 52.227.19(c)(2) or subparagraph (c)(1)(ii) of the Rights
  15. # in Technical Data and Computer Software clause at DFARS 252.227-7013 and/or
  16. # in similar or successor clauses in the FAR, or the DOD or NASA FAR
  17. # Supplement.  Contractor/manufacturer is Silicon Graphics, Inc.,
  18. # 2011 N. Shoreline Blvd. Mountain View, CA 94039-7311.
  19. #
  20. # THE CONTENT OF THIS WORK CONTAINS CONFIDENTIAL AND PROPRIETARY
  21. # INFORMATION OF SILICON GRAPHICS, INC. ANY DUPLICATION, MODIFICATION,
  22. # DISTRIBUTION, OR DISCLOSURE IN ANY FORM, IN WHOLE, OR IN PART, IS STRICTLY
  23. # PROHIBITED WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SILICON
  24. # GRAPHICS, INC.
  25. #
  26.  
  27. ##########################################################################
  28. #  (c) Copyright 1993, 1994 Hewlett-Packard Company    
  29. #  (c) Copyright 1993, 1994 International Business Machines Corp.
  30. #  (c) Copyright 1993, 1994 Sun Microsystems, Inc.
  31. #  (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
  32. #      Novell, Inc.
  33. ##########################################################################
  34.  
  35.  
  36. #
  37. # This sample shell script demonstrates how to interact with the workspace
  38. # manager.  It demonstrates the following capabilities:
  39. #
  40. #    1) How to query which workspaces the widgets currently reside it.
  41. #    2) How to set the current workspace.
  42. #    3) How to be notified when the current workspace changes.
  43. #
  44.  
  45.  
  46. integer wsCount
  47.  
  48. # Pushbutton Callback: This function asks the workspace manager to change
  49. #                      to the workspace indicated by $1; $1 is an X atom
  50. #                      which identifies the new workspace.  At some point
  51. #                      after our request to the workspace manager, the
  52. #                      workspace manager will activate our WsCB function,
  53. #                      letting us know that the change has actually taken
  54. #                      place.
  55. SetWorkspace()
  56. {
  57.    echo
  58.    if DtWsmSetCurrentWorkspace $TOPLEVEL $1; then
  59.       echo "Changing to new workspace"
  60.    else
  61.       XmGetAtomName NAME $(XtDisplay "-" $TOPLEVEL) $1
  62.       echo "Unable to Change to workspace " $NAME
  63.    fi
  64. }
  65.  
  66. # Workspace Changed Callback: This function is invoked whenever the workspace
  67. #                             manager changes workspaces.  It will simply
  68. #                             query the 'name' of the new workspace, and
  69. #                             echo it outl
  70. WsCB()
  71. {
  72.    DtWsmGetCurrentWorkspace $(XtDisplay "-" $TOPLEVEL) \
  73.                        $(XRootWindowOfScreen "-" $(XtScreen "-" $TOPLEVEL)) \
  74.                        NEW_ATOM
  75.    XmGetAtomName NAME $(XtDisplay "-" $TOPLEVEL) $NEW_ATOM
  76.    echo "Change to workspace complete " $NAME  "("$NEW_ATOM")"
  77. }
  78.  
  79. ######################### Create the Main UI #################################
  80.  
  81. XtInitialize TOPLEVEL dtWsTest DtWsTest "$0" "$@"
  82. XtSetValues $TOPLEVEL allowShellResize:True
  83.  
  84. XtCreateManagedWidget DA da XmDrawingArea $TOPLEVEL
  85. XtSetValues $DA height:200 width:200
  86.  
  87. XtRealizeWidget $TOPLEVEL
  88. XSync $(XtDisplay "-" $TOPLEVEL) False
  89.  
  90. XtCreateApplicationShell TOPLEVEL2 DtWsTesta TopLevelShell
  91.  
  92. XtCreateManagedWidget RC rc XmRowColumn $TOPLEVEL2 \
  93.          orientation:HORIZONTAL \
  94.          packing:PACK_COLUMN 
  95.  
  96. # Get a list of all of the workspaces, and create a pushbutton for each one.
  97. # When a pushbutton is activated, it will ask the workspace manager to
  98. # change to the indicated workspace.
  99. oldIF=$IFS
  100. if DtWsmGetWorkspaceList $(XtDisplay "-" $TOPLEVEL) \
  101.                           $(XRootWindowOfScreen "-" $(XtScreen "-" $TOPLEVEL)) \
  102.                           WS_LIST; 
  103. then
  104.    IFS=,
  105.    wsCount=0
  106.    for item in $WS_LIST; 
  107.    do
  108.       XmGetAtomName NAME $(XtDisplay "-" $TOPLEVEL) $item
  109.       label="Set Current Workspace to "$NAME
  110.       XtCreateManagedWidget ITEM $item XmPushButton $RC \
  111.          labelString:$label
  112.       XtAddCallback $ITEM activateCallback "SetWorkspace $item"
  113.       wsCount=$wsCount+1
  114.    done
  115.    IFS=$oldIFS
  116. else
  117.    echo "Unable to get workspace list"
  118.    exit -1
  119. fi
  120.  
  121. XtSetValues $RC numColumns:$wsCount
  122. XtRealizeWidget $TOPLEVEL2
  123. XSync $(XtDisplay "-" $TOPLEVEL) False
  124.  
  125. # The following block queries the initial set of workspaces occupied by
  126. # this shell script; this list is printed out.  Next, it will ask the
  127. # workspace manager to move the shell script windows into all workspaces.
  128. # Lastly, it will again ask the workspace manager for the list of
  129. # workspaces occupied by the shell script windows, and will again print
  130. # out the list.
  131. if DtWsmGetWorkspacesOccupied $(XtDisplay "-" $TOPLEVEL) \
  132.                                $(XtWindow "-" $TOPLEVEL) \
  133.                                CURRENT_WS_LIST ;
  134. then
  135.    echo "Initial workspaces occupied:"
  136.    for item in $CURRENT_WS_LIST; 
  137.    do
  138.       XmGetAtomName NAME $(XtDisplay "-" $TOPLEVEL) $item
  139.       echo "   "$NAME
  140.    done
  141.  
  142.    DtWsmGetWorkspaceList $(XtDisplay "-" $TOPLEVEL) \
  143.                           $(XRootWindowOfScreen "-" $(XtScreen "-" $TOPLEVEL)) \
  144.                           WS_LIST
  145.  
  146.    DtWsmSetWorkspacesOccupied $(XtDisplay "-" $TOPLEVEL) \
  147.                                $(XtWindow "-" $TOPLEVEL) \
  148.                                $WS_LIST
  149.  
  150.    DtWsmSetWorkspacesOccupied $(XtDisplay "-" $TOPLEVEL2) \
  151.                                $(XtWindow "-" $TOPLEVEL2) \
  152.                                $WS_LIST
  153. else
  154.    echo "Unable to get current list of occupied workspaces"
  155.    echo -2
  156. fi
  157.  
  158. XSync $(XtDisplay "-" $TOPLEVEL) False
  159.  
  160. # Print the new list of workspaces occupied
  161. DtWsmGetWorkspacesOccupied $(XtDisplay "-" $TOPLEVEL) \
  162.                             $(XtWindow "-" $TOPLEVEL) \
  163.                             CURRENT_WS_LIST
  164.  
  165. echo "After modification, workspaces occupied:"
  166. IFS=,
  167. for item in $CURRENT_WS_LIST; 
  168. do
  169.    XmGetAtomName NAME $(XtDisplay "-" $TOPLEVEL) $item
  170.    echo "   "$NAME
  171. done
  172. IFS=$oldIFS
  173. echo ""
  174.  
  175. # Add a callback to be notified whenever the workspace changes.
  176. DtWsmAddCurrentWorkspaceCallback HANDLE1 $TOPLEVEL WsCB
  177.  
  178. XtMainLoop
  179.